/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / w3-imap.elc.z / w3-imap.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 35 3a 34 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:05:47 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 77 |s-20.3/l|isp/w3/w|
|000000a0| 33 2d 69 6d 61 70 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |3-imap.e|l.;;; em|
|000000b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 32 30 2e 34 |acs vers|ion 20.4|
|000000c0| 20 22 45 6d 65 72 61 6c | 64 22 20 58 45 6d 61 63 | "Emeral|d" XEmac|
|000000d0| 73 20 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |s  Lucid|..;;; by|
|000000e0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000f0| 2e 32 35 20 58 45 6d 61 | 63 73 3b 20 32 32 2d 4d |.25 XEma|cs; 22-M|
|00000100| 61 72 2d 39 36 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ar-96..;|;; optim|
|00000110| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000120| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000130| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000140| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000150| 45 6d 61 63 73 20 31 39 | 2e 0a 0a 28 69 66 20 28 |Emacs 19|...(if (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000180| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000190| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|000001a0| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|000001b0| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001c0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001d0| 6e 20 22 32 30 22 29 29 | 29 0a 20 20 20 20 28 65 |n "20"))|).    (e|
|000001e0| 72 72 6f 72 20 22 60 77 | 33 2d 69 6d 61 70 2e 65 |rror "`w|3-imap.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00000260| 88 c0 c2 21 87 22 20 5b | 72 65 71 75 69 72 65 20 |...!." [|require |
|00000270| 77 33 2d 76 61 72 73 20 | 77 69 64 67 65 74 5d 20 |w3-vars |widget] |
|00000280| 32 29 0a 23 40 31 32 30 | 20 52 65 74 75 72 6e 20 |2).#@120| Return |
|00000290| 74 20 69 66 66 20 50 4f | 49 4e 54 20 69 73 20 77 |t iff PO|INT is w|
|000002a0| 69 74 68 69 6e 20 61 20 | 72 65 63 74 61 6e 67 6c |ithin a |rectangl|
|000002b0| 65 20 64 65 66 69 6e 65 | 64 20 62 79 20 43 4f 4f |e define|d by COO|
|000002c0| 52 44 31 20 61 6e 64 20 | 43 4f 4f 52 44 32 2e 0a |RD1 and |COORD2..|
|000002d0| 41 6c 6c 20 61 72 67 75 | 6d 65 6e 74 73 20 61 72 |All argu|ments ar|
|000002e0| 65 20 76 65 63 74 6f 72 | 73 20 6f 66 20 5b 58 20 |e vector|s of [X |
|000002f0| 59 5d 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 2e 1f |Y] coord|inates..|
|00000300| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 77 33 2d 70 |.(defali|as 'w3-p|
|00000310| 6f 69 6e 74 2d 69 6e 2d | 72 65 63 74 20 23 5b 28 |oint-in-|rect #[(|
|00000320| 70 6f 69 6e 74 20 63 6f | 6f 72 64 31 20 63 6f 6f |point co|ord1 coo|
|00000330| 72 64 32 20 26 72 65 73 | 74 20 69 67 6e 6f 72 65 |rd2 &res|t ignore|
|00000340| 29 20 22 08 c1 48 5c 6e | c1 48 59 ad 99 08 c1 48 |) "..H\n|.HY....H|
|00000350| 0b c1 48 58 ad 90 08 c4 | 48 5c 6e c4 48 59 ad 87 |..HX....|H\n.HY..|
|00000360| 08 c4 48 0b c4 48 58 87 | 22 20 5b 70 6f 69 6e 74 |..H..HX.|" [point|
|00000370| 20 30 20 63 6f 6f 72 64 | 31 20 63 6f 6f 72 64 32 | 0 coord|1 coord2|
|00000380| 20 31 5d 20 33 20 28 23 | 24 20 2e 20 36 34 39 29 | 1] 3 (#|$ . 649)|
|00000390| 5d 29 0a 23 40 31 31 37 | 20 52 65 74 75 72 6e 20 |]).#@117| Return |
|000003a0| 74 20 69 66 66 20 50 4f | 49 4e 54 20 69 73 20 77 |t iff PO|INT is w|
|000003b0| 69 74 68 69 6e 20 61 20 | 63 69 72 63 6c 65 20 64 |ithin a |circle d|
|000003c0| 65 66 69 6e 65 64 20 62 | 79 20 43 4f 4f 52 44 31 |efined b|y COORD1|
|000003d0| 20 61 6e 64 20 43 4f 4f | 52 44 32 2e 0a 41 6c 6c | and COO|RD2..All|
|000003e0| 20 61 72 67 75 6d 65 6e | 74 73 20 61 72 65 20 76 | argumen|ts are v|
|000003f0| 65 63 74 6f 72 73 20 6f | 66 20 5b 58 20 59 5d 20 |ectors o|f [X Y] |
|00000400| 63 6f 6f 72 64 69 6e 61 | 74 65 73 2e 1f 0a 28 64 |coordina|tes...(d|
|00000410| 65 66 61 6c 69 61 73 20 | 27 77 33 2d 70 6f 69 6e |efalias |'w3-poin|
|00000420| 74 2d 69 6e 2d 63 69 72 | 63 6c 65 20 23 5b 28 70 |t-in-cir|cle #[(p|
|00000430| 6f 69 6e 74 20 63 6f 6f | 72 64 31 20 63 6f 6f 72 |oint coo|rd1 coor|
|00000440| 64 32 20 26 72 65 73 74 | 20 69 67 6e 6f 72 65 29 |d2 &rest| ignore)|
|00000450| 20 22 c0 89 19 1a 0b c4 | 48 0d c4 48 5a 0b c4 48 | "......|H..HZ..H|
|00000460| 0d c4 48 5a 5f 0b c6 48 | 0d c6 48 5a 0b c6 48 0d |..HZ_..H|..HZ..H.|
|00000470| c6 48 5a 5f 5c 5c 12 0b | c4 48 0e 07 c4 48 5a 0b |.HZ_\\..|.H...HZ.|
|00000480| c4 48 0e 07 c4 48 5a 5f | 0b c6 48 0e 07 c6 48 5a |.H...HZ_|..H...HZ|
|00000490| 0b c6 48 0e 07 c6 48 5a | 5f 5c 5c 89 11 5c 6e 58 |..H...HZ|_\\..\nX|
|000004a0| 2a 87 22 20 5b 6e 69 6c | 20 72 61 64 69 75 73 32 |*." [nil| radius2|
|000004b0| 20 72 61 64 69 75 73 31 | 20 63 6f 6f 72 64 31 20 | radius1| coord1 |
|000004c0| 31 20 63 6f 6f 72 64 32 | 20 30 20 70 6f 69 6e 74 |1 coord2| 0 point|
|000004d0| 5d 20 36 20 28 23 24 20 | 2e 20 39 32 31 29 5d 29 |] 6 (#$ |. 921)])|
|000004e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 77 33 2d 69 |.(defali|as 'w3-i|
|000004f0| 6d 61 67 65 2d 70 6f 6c | 79 2d 6e 73 65 67 73 20 |mage-pol|y-nsegs |
|00000500| 23 5b 28 70 29 20 22 08 | c1 48 87 22 20 5b 70 20 |#[(p) ".|.H." [p |
|00000510| 30 5d 20 32 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |0] 2]).(|byte-cod|
|00000520| 65 20 22 c0 c1 4e c2 73 | ac 85 c3 c4 c0 5c 22 88 |e "..N.s|.....\".|
|00000530| c5 c0 c1 c6 23 87 22 20 | 5b 77 33 2d 69 6d 61 67 |....#." |[w3-imag|
|00000540| 65 2d 70 6f 6c 79 2d 6e | 73 65 67 73 20 62 79 74 |e-poly-n|segs byt|
|00000550| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|00000560| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00000570| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|00000580| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|00000590| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|000005a0| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|000005b0| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|000005c0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|000005d0| 6e 65 2d 65 78 70 61 6e | 64 5d 20 34 29 0a 28 64 |ne-expan|d] 4).(d|
|000005e0| 65 66 61 6c 69 61 73 20 | 27 77 33 2d 69 6d 61 67 |efalias |'w3-imag|
|000005f0| 65 2d 70 6f 6c 79 2d 75 | 73 65 64 2d 73 65 67 73 |e-poly-u|sed-segs|
|00000600| 20 23 5b 28 70 29 20 22 | 08 c1 48 87 22 20 5b 70 | #[(p) "|..H." [p|
|00000610| 20 31 5d 20 32 5d 29 0a | 28 62 79 74 65 2d 63 6f | 1] 2]).|(byte-co|
|00000620| 64 65 20 22 c0 c1 4e c2 | 73 ac 85 c3 c4 c0 5c 22 |de "..N.|s.....\"|
|00000630| 88 c5 c0 c1 c6 23 87 22 | 20 5b 77 33 2d 69 6d 61 |.....#."| [w3-ima|
|00000640| 67 65 2d 70 6f 6c 79 2d | 75 73 65 64 2d 73 65 67 |ge-poly-|used-seg|
|00000650| 73 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |s byte-o|ptimizer|
|00000660| 20 28 6e 69 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 | (nil by|te-compi|
|00000670| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000680| 29 20 65 72 72 6f 72 20 | 22 25 73 20 61 6c 72 65 |) error |"%s alre|
|00000690| 61 64 79 20 68 61 73 20 | 61 20 62 79 74 65 2d 6f |ady has |a byte-o|
|000006a0| 70 74 69 6d 69 7a 65 72 | 2c 20 63 61 6e 27 74 20 |ptimizer|, can't |
|000006b0| 6d 61 6b 65 20 69 74 20 | 69 6e 6c 69 6e 65 22 20 |make it |inline" |
|000006c0| 70 75 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |put byte|-compile|
|000006d0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 5d 20 |-inline-|expand] |
|000006e0| 34 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 33 |4).(defa|lias 'w3|
|000006f0| 2d 69 6d 61 67 65 2d 70 | 6f 6c 79 2d 78 2d 63 6f |-image-p|oly-x-co|
|00000700| 6f 72 64 73 20 23 5b 28 | 70 29 20 22 08 c1 48 87 |ords #[(|p) "..H.|
|00000710| 22 20 5b 70 20 32 5d 20 | 32 5d 29 0a 28 62 79 74 |" [p 2] |2]).(byt|
|00000720| 65 2d 63 6f 64 65 20 22 | c0 c1 4e c2 73 ac 85 c3 |e-code "|..N.s...|
|00000730| c4 c0 5c 22 88 c5 c0 c1 | c6 23 87 22 20 5b 77 33 |..\"....|.#." [w3|
|00000740| 2d 69 6d 61 67 65 2d 70 | 6f 6c 79 2d 78 2d 63 6f |-image-p|oly-x-co|
|00000750| 6f 72 64 73 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |ords byt|e-optimi|
|00000760| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|00000770| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000780| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00000790| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|000007a0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|000007b0| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|000007c0| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|000007d0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|000007e0| 64 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d] 4).(d|efalias |
|000007f0| 27 77 33 2d 69 6d 61 67 | 65 2d 70 6f 6c 79 2d 79 |'w3-imag|e-poly-y|
|00000800| 2d 63 6f 6f 72 64 73 20 | 23 5b 28 70 29 20 22 08 |-coords |#[(p) ".|
|00000810| c1 48 87 22 20 5b 70 20 | 33 5d 20 32 5d 29 0a 28 |.H." [p |3] 2]).(|
|00000820| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4e c2 73 |byte-cod|e "..N.s|
|00000830| ac 85 c3 c4 c0 5c 22 88 | c5 c0 c1 c6 23 87 22 20 |.....\".|....#." |
|00000840| 5b 77 33 2d 69 6d 61 67 | 65 2d 70 6f 6c 79 2d 79 |[w3-imag|e-poly-y|
|00000850| 2d 63 6f 6f 72 64 73 20 | 62 79 74 65 2d 6f 70 74 |-coords |byte-opt|
|00000860| 69 6d 69 7a 65 72 20 28 | 6e 69 6c 20 62 79 74 65 |imizer (|nil byte|
|00000870| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00000880| 65 78 70 61 6e 64 29 20 | 65 72 72 6f 72 20 22 25 |expand) |error "%|
|00000890| 73 20 61 6c 72 65 61 64 | 79 20 68 61 73 20 61 20 |s alread|y has a |
|000008a0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 2c 20 |byte-opt|imizer, |
|000008b0| 63 61 6e 27 74 20 6d 61 | 6b 65 20 69 74 20 69 6e |can't ma|ke it in|
|000008c0| 6c 69 6e 65 22 20 70 75 | 74 20 62 79 74 65 2d 63 |line" pu|t byte-c|
|000008d0| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|000008e0| 70 61 6e 64 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |pand] 4)|.(defali|
|000008f0| 61 73 20 27 77 33 2d 69 | 6d 61 67 65 2d 70 6f 6c |as 'w3-i|mage-pol|
|00000900| 79 2d 78 2d 63 6f 6f 72 | 64 20 23 5b 28 70 20 6e |y-x-coor|d #[(p n|
|00000910| 29 20 22 08 89 18 c1 48 | 29 5c 6e 48 87 22 20 5b |) "....H|)\nH." [|
|00000920| 70 20 32 20 6e 5d 20 33 | 5d 29 0a 28 62 79 74 65 |p 2 n] 3|]).(byte|
|00000930| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00000940| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 77 33 2d |.\".....|#." [w3-|
|00000950| 69 6d 61 67 65 2d 70 6f | 6c 79 2d 78 2d 63 6f 6f |image-po|ly-x-coo|
|00000960| 72 64 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |rd byte-|optimize|
|00000970| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|00000980| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00000990| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|000009a0| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|000009b0| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|000009c0| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|000009d0| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|000009e0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|000009f0| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 | 4).(def|alias 'w|
|00000a00| 33 2d 69 6d 61 67 65 2d | 70 6f 6c 79 2d 79 2d 63 |3-image-|poly-y-c|
|00000a10| 6f 6f 72 64 20 23 5b 28 | 70 20 6e 29 20 22 08 89 |oord #[(|p n) "..|
|00000a20| 18 c1 48 29 5c 6e 48 87 | 22 20 5b 70 20 33 20 6e |..H)\nH.|" [p 3 n|
|00000a30| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|00000a40| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00000a50| c0 c1 c6 23 87 22 20 5b | 77 33 2d 69 6d 61 67 65 |...#." [|w3-image|
|00000a60| 2d 70 6f 6c 79 2d 79 2d | 63 6f 6f 72 64 20 62 79 |-poly-y-|coord by|
|00000a70| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 20 28 6e 69 |te-optim|izer (ni|
|00000a80| 6c 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |l byte-c|ompile-i|
|00000a90| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 20 65 72 |nline-ex|pand) er|
|00000aa0| 72 6f 72 20 22 25 73 20 | 61 6c 72 65 61 64 79 20 |ror "%s |already |
|00000ab0| 68 61 73 20 61 20 62 79 | 74 65 2d 6f 70 74 69 6d |has a by|te-optim|
|00000ac0| 69 7a 65 72 2c 20 63 61 | 6e 27 74 20 6d 61 6b 65 |izer, ca|n't make|
|00000ad0| 20 69 74 20 69 6e 6c 69 | 6e 65 22 20 70 75 74 20 | it inli|ne" put |
|00000ae0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00000af0| 69 6e 65 2d 65 78 70 61 | 6e 64 5d 20 34 29 0a 28 |ine-expa|nd] 4).(|
|00000b00| 64 65 66 61 6c 69 61 73 | 20 27 77 33 2d 69 6d 61 |defalias| 'w3-ima|
|00000b10| 67 65 2d 70 6f 6c 79 2d | 61 6c 6c 6f 63 20 23 5b |ge-poly-|alloc #[|
|00000b20| 28 6e 29 20 22 08 c1 57 | ab 85 c2 c3 08 5c 22 88 |(n) "..W|.....\".|
|00000b30| c4 08 c5 c6 08 c7 5c 22 | c6 08 c7 5c 22 24 87 22 |......\"|...\"$."|
|00000b40| 20 5b 6e 20 33 20 65 72 | 72 6f 72 20 22 77 33 2d | [n 3 er|ror "w3-|
|00000b50| 69 6d 61 67 65 2d 70 6f | 6c 79 2d 61 6c 6c 6f 63 |image-po|ly-alloc|
|00000b60| 3a 20 69 6e 76 61 6c 69 | 64 20 6e 75 6d 62 65 72 |: invali|d number|
|00000b70| 20 6f 66 20 73 69 64 65 | 73 20 28 25 64 29 22 20 | of side|s (%d)" |
|00000b80| 76 65 63 74 6f 72 20 30 | 20 6d 61 6b 65 2d 76 65 |vector 0| make-ve|
|00000b90| 63 74 6f 72 20 6e 69 6c | 5d 20 37 5d 29 0a 28 64 |ctor nil|] 7]).(d|
|00000ba0| 65 66 61 6c 69 61 73 20 | 27 77 33 2d 69 6d 61 67 |efalias |'w3-imag|
|00000bb0| 65 2d 70 6f 6c 79 2d 61 | 73 73 69 67 6e 20 23 5b |e-poly-a|ssign #[|
|00000bc0| 28 70 20 78 20 79 29 20 | 22 08 89 18 c1 48 29 08 |(p x y) |"....H).|
|00000bd0| 89 18 c2 48 29 59 ab 84 | c3 c4 21 88 08 89 18 c5 |...H)Y..|..!.....|
|00000be0| 48 29 08 89 18 c1 48 29 | 0e 06 49 88 08 89 18 c7 |H)....H)|..I.....|
|00000bf0| 48 29 08 89 18 c1 48 29 | 0e 08 49 88 08 c1 08 89 |H)....H)|..I.....|
|00000c00| 18 c1 48 29 54 49 87 22 | 20 5b 70 20 31 20 30 20 |..H)TI."| [p 1 0 |
|00000c10| 65 72 72 6f 72 20 22 77 | 33 2d 69 6d 61 67 65 2d |error "w|3-image-|
|00000c20| 70 6f 6c 79 2d 61 73 73 | 69 67 6e 3a 20 6f 75 74 |poly-ass|ign: out|
|00000c30| 20 6f 66 20 73 70 61 63 | 65 20 69 6e 20 74 68 65 | of spac|e in the|
|00000c40| 20 77 33 2d 69 6d 61 67 | 65 2d 70 6f 6c 79 67 6f | w3-imag|e-polygo|
|00000c50| 6e 22 20 32 20 78 20 33 | 20 79 5d 20 35 5d 29 0a |n" 2 x 3| y] 5]).|
|00000c60| 28 64 65 66 61 6c 69 61 | 73 20 27 77 33 2d 69 6d |(defalia|s 'w3-im|
|00000c70| 61 67 65 2d 63 63 77 20 | 23 5b 28 70 30 20 70 31 |age-ccw |#[(p0 p1|
|00000c80| 20 70 32 29 20 22 c0 89 | 89 89 89 19 1a 1b 1c 1d | p2) "..|........|
|00000c90| 0e 06 c7 48 0e 08 c7 48 | 5a 15 0e 06 c9 48 0e 08 |...H...H|Z....H..|
|00000ca0| c9 48 5a 13 0e 5c 6e c7 | 48 0e 08 c7 48 5a 14 0e |.HZ..\n.|H...HZ..|
|00000cb0| 5c 6e c9 48 0e 08 c9 48 | 5a 12 0d 5c 6e 5f 0b 0c |\n.H...H|Z..\n_..|
|00000cc0| 5f 56 ab 84 c9 11 aa b6 | 0d 5c 6e 5f 0b 0c 5f 57 |_V......|.\n_.._W|
|00000cd0| ab 84 cb 11 aa a9 0d 0c | 5f c7 57 ac 87 0b 5c 6e |........|_.W...\n|
|00000ce0| 5f c7 57 ab 84 cb 11 aa | 97 0d 89 5f 0b 89 5f 5c |_.W.....|..._.._\|
|00000cf0| 5c 0c 89 5f 5c 6e 89 5f | 5c 5c 57 ab 84 c9 11 aa |\.._\n._|\\W.....|
|00000d00| 82 c7 11 09 2d 87 22 20 | 5b 6e 69 6c 20 72 65 74 |....-." |[nil ret|
|00000d10| 76 61 6c 20 64 79 32 20 | 64 79 31 20 64 78 32 20 |val dy2 |dy1 dx2 |
|00000d20| 64 78 31 20 70 31 20 30 | 20 70 30 20 31 20 70 32 |dx1 p1 0| p0 1 p2|
|00000d30| 20 2d 31 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 | -1] 5])|.(defali|
|00000d40| 61 73 20 27 77 33 2d 69 | 6d 61 67 65 2d 6c 69 6e |as 'w3-i|mage-lin|
|00000d50| 65 2d 69 6e 74 65 72 73 | 65 63 74 20 23 5b 28 6c |e-inters|ect #[(l|
|00000d60| 31 20 6c 32 29 20 22 c0 | 09 40 09 41 5c 6e 40 23 |1 l2) ".|.@.A\n@#|
|00000d70| c0 09 40 09 41 5c 6e 41 | 23 5f c3 58 ad 93 c0 5c |..@.A\nA|#_.X...\|
|00000d80| 6e 40 5c 6e 41 09 40 23 | c0 5c 6e 40 5c 6e 41 09 |n@\nA.@#|.\n@\nA.|
|00000d90| 41 23 5f c3 58 87 22 20 | 5b 77 33 2d 69 6d 61 67 |A#_.X." |[w3-imag|
|00000da0| 65 2d 63 63 77 20 6c 31 | 20 6c 32 20 30 5d 20 35 |e-ccw l1| l2 0] 5|
|00000db0| 5d 29 0a 23 40 31 35 36 | 20 52 65 74 75 72 6e 20 |]).#@156| Return |
|00000dc0| 74 20 69 66 66 20 50 4f | 49 4e 54 20 69 73 20 77 |t iff PO|INT is w|
|00000dd0| 69 74 68 69 6e 20 61 20 | 70 6f 6c 79 67 6f 6e 20 |ithin a |polygon |
|00000de0| 64 65 66 69 6e 65 64 20 | 62 79 20 74 68 65 20 6c |defined |by the l|
|00000df0| 69 73 74 20 6f 66 20 70 | 6f 69 6e 74 73 20 50 47 |ist of p|oints PG|
|00000e00| 4f 4e 2e 0a 41 6c 6c 20 | 61 72 67 75 6d 65 6e 74 |ON..All |argument|
|00000e10| 73 20 61 72 65 20 65 69 | 74 68 65 72 20 76 65 63 |s are ei|ther vec|
|00000e20| 74 6f 72 73 20 6f 66 20 | 5b 58 20 59 5d 20 63 6f |tors of |[X Y] co|
|00000e30| 6f 72 64 69 6e 61 74 65 | 73 20 6f 72 20 6c 69 73 |ordinate|s or lis|
|00000e40| 74 73 20 6f 66 20 73 75 | 63 68 0a 76 65 63 74 6f |ts of su|ch.vecto|
|00000e50| 72 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |rs...(de|falias '|
|00000e60| 77 33 2d 70 6f 69 6e 74 | 2d 69 6e 2d 70 6f 6c 79 |w3-point|-in-poly|
|00000e70| 20 23 5b 28 70 6f 69 6e | 74 20 26 72 65 73 74 20 | #[(poin|t &rest |
|00000e80| 70 67 6f 6e 29 20 22 08 | 47 c1 57 3f 85 da 00 c2 |pgon) ".|G.W?....|
|00000e90| 08 47 21 c3 89 89 c4 c5 | 0e 06 c3 48 0e 06 c7 48 |.G!.....|...H...H|
|00000ea0| 54 5c 22 c5 0e 06 c3 48 | 0e 06 c7 48 5c 22 42 1e |T\"....H|...H\"B.|
|00000eb0| 08 1e 09 1e 5c 6e 1e 0b | 1e 0c 1e 0d 08 ab 93 ce |....\n..|........|
|00000ec0| 0e 0d 08 40 c3 48 08 40 | c7 48 23 88 08 41 89 10 |...@.H.@|.H#..A..|
|00000ed0| ac 6d 0e 0b 0e 0d 89 1e | 0d c3 48 29 57 ab fd 0e |.m......|..H)W...|
|00000ee0| 0b 54 89 16 5c 6e 0e 0d | 89 1e 0d c3 48 29 55 ab |.T..\n..|....H)U.|
|00000ef0| 83 c3 16 5c 6e c5 0e 0d | 0e 0b 1e 0f 89 1e 0d 89 |...\n...|........|
|00000f00| 1e 0d d0 48 29 0e 0f 48 | 2a 0e 0d 0e 0b 1e 0f 89 |...H)..H|*.......|
|00000f10| 1e 0d 89 1e 0d c1 48 29 | 0e 0f 48 2a 5c 22 c5 0e |......H)|..H*\"..|
|00000f20| 0d 0e 5c 6e 1e 0f 89 1e | 0d 89 1e 0d d0 48 29 0e |..\n....|.....H).|
|00000f30| 0f 48 2a 0e 0d 0e 5c 6e | 1e 0f 89 1e 0d 89 1e 0d |.H*...\n|........|
|00000f40| c1 48 29 0e 0f 48 2a 5c | 22 42 16 09 d1 0e 09 0e |.H)..H*\|"B......|
|00000f50| 08 5c 22 ab 85 0e 0c 54 | 16 0c 0e 0b 54 89 16 0b |.\"....T|....T...|
|00000f60| 82 4a 00 0e 0c d0 a6 c7 | 55 2e 06 87 22 20 5b 70 |.J......|U..." [p|
|00000f70| 67 6f 6e 20 33 20 77 33 | 2d 69 6d 61 67 65 2d 70 |gon 3 w3|-image-p|
|00000f80| 6f 6c 79 2d 61 6c 6c 6f | 63 20 30 20 6e 69 6c 20 |oly-allo|c 0 nil |
|00000f90| 76 65 63 74 6f 72 20 70 | 6f 69 6e 74 20 31 20 6c |vector p|oint 1 l|
|00000fa0| 32 20 6c 31 20 69 70 31 | 20 69 20 68 69 74 63 6f |2 l1 ip1| i hitco|
|00000fb0| 75 6e 74 20 70 20 77 33 | 2d 69 6d 61 67 65 2d 70 |unt p w3|-image-p|
|00000fc0| 6f 6c 79 2d 61 73 73 69 | 67 6e 20 6e 20 32 20 77 |oly-assi|gn n 2 w|
|00000fd0| 33 2d 69 6d 61 67 65 2d | 6c 69 6e 65 2d 69 6e 74 |3-image-|line-int|
|00000fe0| 65 72 73 65 63 74 5d 20 | 31 31 20 28 23 24 20 2e |ersect] |11 (#$ .|
|00000ff0| 20 33 35 31 33 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 3513)])|.(defali|
|00001000| 61 73 20 27 77 33 2d 70 | 6f 69 6e 74 2d 69 6e 2d |as 'w3-p|oint-in-|
|00001010| 64 65 66 61 75 6c 74 20 | 23 5b 28 70 6f 69 6e 74 |default |#[(point|
|00001020| 20 26 72 65 73 74 20 69 | 67 6e 6f 72 65 29 20 22 | &rest i|gnore) "|
|00001030| c0 87 22 20 5b 74 5d 20 | 31 5d 29 0a 28 64 65 66 |.." [t] |1]).(def|
|00001040| 61 6c 69 61 73 20 27 77 | 33 2d 70 6f 69 6e 74 2d |alias 'w|3-point-|
|00001050| 69 6e 2d 6d 61 70 20 23 | 5b 28 70 6f 69 6e 74 20 |in-map #|[(point |
|00001060| 6d 61 70 20 26 6f 70 74 | 69 6f 6e 61 6c 20 61 6c |map &opt|ional al|
|00001070| 74 2d 74 65 78 74 29 20 | 22 c0 89 89 89 89 89 19 |t-text) |".......|
|00001080| 1a 1b 1c 1d 1e 06 0e 07 | ab 83 c8 aa 81 c9 11 0e |........|........|
|00001090| 5c 6e ab bb 0c ac b8 0e | 5c 6e 40 13 cb cc cd 0b |\n......|\n@.....|
|000010a0| ce 48 5c 22 21 16 06 0b | cf 48 15 0e 06 ad 8d d0 |.H\"!...|.H......|
|000010b0| 0e 06 21 ad 87 d1 0e 06 | 0e 12 0d 23 14 0e 5c 6e |..!.....|...#..\n|
|000010c0| 41 16 5c 6e 0b ce 48 d3 | 6b ab 49 0b 09 48 12 c0 |A.\n..H.|k.I..H..|
|000010d0| 14 aa 41 0c ab 98 0b c9 | 48 ab 93 0e 07 ab 8a 0b |..A.....|H.......|
|000010e0| c8 48 ae 91 0b c9 48 aa | 8c 0b 09 48 aa 87 5c 6e |.H....H.|...H..\n|
|000010f0| ab 83 5c 6e aa 81 c0 2e | 06 87 22 20 5b 6e 69 6c |..\n....|.." [nil|
|00001100| 20 73 6c 6f 74 20 64 65 | 66 61 75 6c 74 20 63 75 | slot de|fault cu|
|00001110| 72 20 64 6f 6e 65 20 61 | 72 67 73 20 66 75 6e 63 |r done a|rgs func|
|00001120| 20 61 6c 74 2d 74 65 78 | 74 20 33 20 32 20 6d 61 | alt-tex|t 3 2 ma|
|00001130| 70 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 20 66 6f |p intern|-soft fo|
|00001140| 72 6d 61 74 20 22 77 33 | 2d 70 6f 69 6e 74 2d 69 |rmat "w3|-point-i|
|00001150| 6e 2d 25 73 22 20 30 20 | 31 20 66 62 6f 75 6e 64 |n-%s" 0 |1 fbound|
|00001160| 70 20 61 70 70 6c 79 20 | 70 6f 69 6e 74 20 22 64 |p apply |point "d|
|00001170| 65 66 61 75 6c 74 22 5d | 20 36 5d 29 0a 28 62 79 |efault"]| 6]).(by|
|00001180| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 85 c2 c3 |te-code |"..!....|
|00001190| 0c 5c 22 11 c1 0d 42 15 | c0 c6 21 ac 83 c7 16 06 |.\"...B.|..!.....|
|000011a0| c6 0d 42 15 c7 87 22 20 | 5b 62 6f 75 6e 64 70 20 |..B..." |[boundp |
|000011b0| 77 33 2d 61 6c 6c 6f 77 | 65 64 2d 69 6d 61 67 65 |w3-allow|ed-image|
|000011c0| 2d 74 79 70 65 73 20 6d | 61 70 63 61 72 20 23 5b |-types m|apcar #[|
|000011d0| 28 78 29 20 22 08 40 43 | 87 22 20 5b 78 5d 20 31 |(x) ".@C|." [x] 1|
|000011e0| 5d 20 77 33 2d 69 6d 61 | 67 65 2d 6d 61 70 70 69 |] w3-ima|ge-mappi|
|000011f0| 6e 67 73 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |ngs curr|ent-load|
|00001200| 2d 6c 69 73 74 20 77 33 | 2d 69 6d 61 67 65 2d 73 |-list w3|-image-s|
|00001210| 69 7a 65 2d 72 65 73 74 | 72 69 63 74 69 6f 6e 20 |ize-rest|riction |
|00001220| 6e 69 6c 5d 20 33 29 0a | 23 40 34 38 20 52 65 74 |nil] 3).|#@48 Ret|
|00001230| 75 72 6e 20 6e 6f 6e 2d | 6e 69 6c 20 69 66 66 20 |urn non-|nil iff |
|00001240| 48 52 45 46 20 69 73 20 | 69 6e 20 74 68 65 20 69 |HREF is |in the i|
|00001250| 6d 61 67 65 20 63 61 63 | 68 65 2e 1f 0a 28 64 65 |mage cac|he...(de|
|00001260| 66 61 6c 69 61 73 20 27 | 77 33 2d 69 6d 61 67 65 |falias '|w3-image|
|00001270| 2d 63 61 63 68 65 64 2d | 70 20 27 28 6d 61 63 72 |-cached-|p '(macr|
|00001280| 6f 20 2e 20 23 5b 28 68 | 72 65 66 29 20 22 c0 c1 |o . #[(h|ref) "..|
|00001290| 5c 6e c3 42 42 44 87 22 | 20 5b 63 64 72 2d 73 61 |\n.BBD."| [cdr-sa|
|000012a0| 66 65 20 61 73 73 6f 63 | 20 68 72 65 66 20 28 77 |fe assoc| href (w|
|000012b0| 33 2d 67 72 61 70 68 69 | 63 73 2d 6c 69 73 74 29 |3-graphi|cs-list)|
|000012c0| 5d 20 34 20 28 23 24 20 | 2e 20 34 36 35 33 29 5d |] 4 (#$ |. 4653)]|
|000012d0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 33 |)).(defa|lias 'w3|
|000012e0| 2d 69 6d 61 67 65 2d 6c | 6f 61 64 61 62 6c 65 2d |-image-l|oadable-|
|000012f0| 70 20 23 5b 28 68 72 65 | 66 20 66 6f 72 63 65 29 |p #[(hre|f force)|
|00001300| 20 22 c0 09 21 1a 0b ae | a0 c4 c5 5c 6e 38 0e 06 | "..!...|...\n8..|
|00001310| 5c 22 ae 97 0e 07 3f ae | 92 c8 5c 6e 38 c9 58 ae |\"....?.|..\n8.X.|
|00001320| 8b 0e 07 a7 ad 86 c8 5c | 6e 38 0e 07 58 29 87 22 |.......\|n8..X)."|
|00001330| 20 5b 75 72 6c 2d 66 69 | 6c 65 2d 61 74 74 72 69 | [url-fi|le-attri|
|00001340| 62 75 74 65 73 20 68 72 | 65 66 20 61 74 74 72 69 |butes hr|ef attri|
|00001350| 62 73 20 66 6f 72 63 65 | 20 61 73 73 6f 63 20 38 |bs force| assoc 8|
|00001360| 20 77 33 2d 61 6c 6c 6f | 77 65 64 2d 69 6d 61 67 | w3-allo|wed-imag|
|00001370| 65 2d 74 79 70 65 73 20 | 77 33 2d 69 6d 61 67 65 |e-types |w3-image|
|00001380| 2d 73 69 7a 65 2d 72 65 | 73 74 72 69 63 74 69 6f |-size-re|strictio|
|00001390| 6e 20 37 20 30 5d 20 33 | 5d 29 0a 28 64 65 66 61 |n 7 0] 3|]).(defa|
|000013a0| 6c 69 61 73 20 27 77 33 | 2d 69 6d 61 67 65 2d 69 |lias 'w3|-image-i|
|000013b0| 6e 76 61 6c 69 64 2d 67 | 6c 79 70 68 2d 70 20 27 |nvalid-g|lyph-p '|
|000013c0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 67 6c 79 70 |(macro .| #[(glyp|
|000013d0| 68 29 20 22 c0 c1 c2 0b | c4 42 42 44 c1 c2 0b c5 |h) "....|.BBD....|
|000013e0| 42 42 44 c6 c2 0b c7 42 | 42 c8 42 42 46 87 22 20 |BBD....B|B.BBF." |
|000013f0| 5b 6f 72 20 6e 75 6c 6c | 20 61 72 65 66 20 67 6c |[or null| aref gl|
|00001400| 79 70 68 20 28 30 29 20 | 28 32 29 20 65 71 75 61 |yph (0) |(2) equa|
|00001410| 6c 20 28 32 29 20 28 22 | 22 29 5d 20 37 5d 29 29 |l (2) ("|")] 7]))|
|00001420| 0a 28 70 72 6f 76 69 64 | 65 20 27 77 33 2d 69 6d |.(provid|e 'w3-im|
|00001430| 61 70 29 0a             |                         |ap).    |        |
+--------+-------------------------+-------------------------+--------+--------+